#Include "Protheus.ch"

User Function AVIA0010()

Local cVldExc     := "AllwaysTrue()"
Local cVldAlt     := "AllwaysTrue()"
Private cCadastro := OemToAnsi("Cadastro de Exames")
Private cAlias    := "ZZH"

AxCadastro(cAlias, cCadastro, cVldExc, cVldAlt)

Return Nil

// ----------------------------------------------------------------------------------- //